﻿Imports Logica

Public Class AplicarPlanilla

    ''' <summary>
    ''' Carga el combo box del mes
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks>Creador por: Stephan Endres, Fecha: 20/06/2010, Modificado: 20/06/2010.</remarks>
    Private Sub AplicarPlanilla_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        cmbMes.DataSource = System.Enum.GetValues(GetType(EnumMes))
        lblError.Text = ""
        txtResultado.Text = ""
    End Sub

    ''' <summary>
    ''' Realiza la aplicación de la planilla
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks>Creador por: Stephan Endres, Fecha: 20/06/2010, Modificado: 20/06/2010.</remarks>
    Private Sub btnSolicitarSaldo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSolicitarSaldo.Click
        If Not cmbMes.Text = "Seleccione" Then

            Dim resultado As Double = Gestor.generarPlanilla(cmbMes.SelectedIndex)

            If Not resultado = 0 Then
                txtResultado.Text = resultado
                lblError.Visible = False
            Else
                lblError.Visible = True
                lblError.Text = "No existe un saldo para el mes seleccionado"
            End If

        Else
            lblError.Visible = True
            lblError.Text = "Seleccione un mes"
        End If
    End Sub

    ''' <summary>
    ''' Realiza el cierre del formulario
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks>Creador por: Stephan Endres, Fecha: 20/06/2010, Modificado: 20/06/2010.</remarks>
    Private Sub btnCancelar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancelar.Click
        Me.Close()
    End Sub

    ''' <summary>
    ''' Abre el formulario de ayuda
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks>Creador por: Stephan Endres, Fecha: 20/06/2010, Modificado: 20/06/2010.</remarks>
    Private Sub lklblAyuda_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles lklblAyuda.LinkClicked
        MostrarAyuda.Show()
    End Sub
End Class